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LIFE 



DECUS Program Library Write-up DEC US NO. FOCAL8-185 

ABSTRACT 

This program is a focal version of the game LIFE attributed to John Horton Conway of the 
Cavendish Laboratory in Cambridge, England 

The computer plays with a matrix of locations, each of which may start as full or empty. 
Full locations are said to contain "cells",' which live, multiply or die according to the 
following rules:- 

Each location is bounded by eight neighboring locations, except at the edges of the matrix. 

Each cell with two or three neighboring cells will survive. 

Each cell on its own, or with only one neighbor, will die of isolation. Each cell with four 
or more neighbors will die of over-population. 

Each empty location with three or more cells neighboring it will be filled by a new cell. 

This program starts after a GO command by asking the operator to specify the size of the 
matrix to be used. The maximum size on a 4K machine is 4 X 4, but an 8K machine permits 
the use of an 11 X 1 1 matrix. After this, the operator must specify the X and Y coordinates 
of cells in the starting position, specifying zero as a coordinate results in a typeout of the 
starting matrix, after which the computer asks if the next "generation" of cells should be 
plotted. 

A sample printout with user's responses in angled < > brackets:- 

LIFE 

Matrix size M'M ? M?:<11> 

Type X + Y coordinates of occupied cells 

Zero stops further entries 

X:<4> Y:<5> X:<5> Y:<5> X:<6> Y:<5> 

X:<5> Y:<6> X:<6> Y:<6> X:<7> Y:<6> 

X:<6> Y:<7> X:<7> Y:<7> X:<8> Y:<7> 

X:<0> Y:<0> 



MATRIX IS 



• .000 

. . .000 

. . . .000. . . 



Next generation?: <Yes> 
MATRIX IS 



..J* 

.O..0... 
.0...0.. 
. .0. .0. . 
....0... 



Next generation?: <Yes> 
MATRIX IS 



• • •jOjO •••••• 

. . .0.00. . . 

• ••••• pJpJ • • • 



Next generation?: <Yes> 



MATRIX IS 



• • -000 

. . .00000. . . 

00- • • 



The next generation was Identical to the second one above. This attainment of a constant 
cycle of structures is a very common outcome of the game. 
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RESTRICTIONS 

A 4K PDP-8 allows a matrix of only 4 X 4 or less, but 8K FOCAL allows the i se of an 
11X11 matrix. 
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01 .01 CJ LIFE 

01.20 T ! ! !* "LIFE'S ! ! 

01.30 A "MATRIX SIZE M*K ? M ?"»K 

01.40 S MM=M*MJF J=1*1*MMJS C(J)=0 

01.50 T !#"TYPE X £ / COORDINATES OF OCCUPIED CELLS"* ! 

01.55 T "ZERO STOPS FURTHER ENTRIES"*! 

01 .60 A "X"*X," Y",Y 

01.65 I CX)2. 10,2.10*1 CY)2.10*2.10 

01.70 I <M-X)1.30*I CM-YH.805S J=C C /-l 3*M) +X; S C<J)=1*C 1.60 

01.80 T !* "OUTS IDE MATRIX "*M*"*"*M;C 1.60 

02.10 T %2. 00* !* "MATRIX IS"*! 

02.20 F /=1*1*M*D 3 

02.40 T !!iA "NEXT CENERATI ON?"* J 

02.50 I CJ-0/ES/2. 60*5. 10*2.60 

02.60 I C J-0NO>2.70*2.30*2.70 

02.70 T "ANSV.*£R YES OR NO"* ! * C 2.'0 
02.80 U 

03.20 T ! iF X=i*l*M*D 4 
03.33 R 

04.20 S J=CC/-1 3*M)+X;i (CC J))4.3f *4. 30*4. 40 
04.30 T ".";r 
04.40 T "0";R 

05.10 F /=i*i*m;d 6 
05.20 F j=i*i*mm;d 10 
05.30 C 2.10 

06.20 F X=1*1*M;D 7 
06.30 R 

J=CC/-l 3*M)+XJS P=0 

C/-1 )7.40,7.40;i (M-3T)7.3i *7.30 

<X-1 > 7.23*7.23; I CK-X) 7.25*7.29 

8.1JD 8.2;D 8.3;D 8.4JD 8.5*D 8.6;d 8.7;d 8.8;G 7.70 

8.6;d 8.2;d 8.5;d 8.4;d a.aic 7.70 

8.7*D 3.3;D 8.8*D 8.1*D 8.6;C 7.70 
(X-l)7.33*7.33;i CM-X)7.34, 7.34 
8.8;D 8.1JD 8.65D 8.2JD 8.5JC 7.70 

8.6JD 8.2JD 8.5;C 7.70 

8.8;u 8.i;d 8.6;c 7.70 

CX-1>7. 50*7.50*1 CM-X)7.60*7.60 

8.3JD 8.8 

8.5JD 3.4;D 8.7JC 7.70 

8.7JD 8.3JD 8.8 

CCC J)) 7.80* 7.80* 7.93 

(P-3)7.82;S C(J)=-1*R 

<P-1 ,7.92,7.92; I C4-P)7.9J*7.92;R 
CCJ)=100 



07.10 


s 


07.20 


I 


07.24 


I 


07.25 


D 


07.28 


D 


07.29 


D 


07.30 


I 


07.31 


D 


07.33 


D 


07.34 


D 


07.40 


I 


07.41 


D 


07.50 


D 


07.60 


D 


07.70 


I 


07.80 


I 


07.82 


R 


07.90 


I 


07.92 


3 



08.10 S TL=( J-l-M>;iCCCTL)>9. 11,9.11,9. 12 
08.90 3 TH=CJ+1-M);i CC<TR)>9.1 1,9.11,9.12 
0*3. .30 -3 BL=CJ-1+M>;t CC<3L>>9.11,9.11,9.12 
08. 40 S BR=(J+1+M);i (CCBK))9. 11, 9. 11,9.12 
08.50 S'H»J+1JI <CCR))9.11,9.U,9.12 
08.60 3 T = J-MJI (CC'fi)))9.1 1,9.1 1,9.12 
08.70 S 3=J+M;I CCC 8)) 9. 11, 9. 11, 9. 12 
08.80 3 L=J-i;i CCCL))9.1l,9.11,9.12 



09.11 
09.12 



R 

s p=p+i;r 



10.10 I CCC J)) 10. 40, 10. 60; I (CCC J)-l >> 10. 60, 10.40, 10.60 
10.40 s ccj)=i;r 
10.60 3 CCJ)=0;R 
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